(defun c:upointtxt ( / inp)
  (setq msg (strcat "\nSelect point:")
        bit 1
  )
  (initget bit)
  (setq inp
       (getpoint msg)
  )
  (IF inp
    (PROGN
      (SETQ x-val (RTOS (CAR inp) 2 4)
            y-val (RTOS (CADR inp) 2 4)
            z-val (RTOS (CADDR inp) 2 4)
      )
      (SETQ ptstr (STRCAT x-val "," y-val "," z-val))
      (PRINC "\nptstr = ")
      (PRINC ptstr)
      (PRINC)
    )
  )
);defun
;*
(princ)
;*
